Chip 2001 November/Chip Kasım 2001.iso/prog/share/perledit/SETUP.EXE/install_script.iss

Inno Setup Script | 2001-09-24 | 17.6 KB | 179 lines

;InnoSetupVersion=2.0.11
[Setup]
AppName=DzSoft Perl Editor
AppVerName=DzSoft Perl Editor 5.0
AppId=dzperl
AppVersion=5.0
AppPublisher=DzSoft Ltd
AppPublisherURL=http://www.dzsoft.com/
AppSupportURL=http://www.dzsoft.com/support.htm
AppUpdatesURL=http://www.dzsoft.com/
AppMutex=dzperl
DefaultDirName={pf}\DzSoft\Perl Editor
DefaultGroupName=DzSoft Perl Editor
UninstallDisplayIcon={app}\Pleditor.exe
OutputBaseFilename=setup
Compression=zip
ChangesAssociations=yes
LicenseFile=embedded\License.rtf
WizardImageFile=embedded\WizardImage0.bmp
WizardSmallImageFile=embedded\WizardSmallImage0.bmp
[Files]
Source: "{app}\Pleditor.exe"; DestDir: "{app}";
Source: "{app}\Uploader.exe"; DestDir: "{app}";
Source: "{app}\Pleditor.chm"; DestDir: "{app}";
Source: "{app}\Samples\envvars.pl"; DestDir: "{app}\Samples";
Source: "{app}\Samples\hello.pl"; DestDir: "{app}\Samples";
Source: "{app}\Samples\oldform.pl"; DestDir: "{app}\Samples";
Source: "{app}\Samples\param.pl"; DestDir: "{app}\Samples";
Source: "{app}\Samples\time.pl"; DestDir: "{app}\Samples";
[Dirs]
Name: "{app}\Samples";
[Registry]
Root: HKCU; Subkey: "Software\DzSoft"; Flags: uninsdeletekeyifempty
Root: HKCU; Subkey: "Software\DzSoft\Perl Editor"; Flags: uninsdeletekey
Root: HKCU; Subkey: "Software\DzSoft\Perl Editor\Dream\Version 4.1\CodeEdit"; ValueName: "Options"; ValueType: Dword; ValueData: "$477"; Flags: createvalueifdoesntexist
Root: HKCU; Subkey: "Software\Software\DzSoft\Perl Editor\FTP\Window Position"; Flags: deletekey
Root: HKCU; Subkey: "Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.cgi"; ValueName: "Application"; ValueType: String; Tasks: association; Flags: deletevalue
Root: HKCU; Subkey: "Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.pl"; ValueName: "Application"; ValueType: String; Tasks: association; Flags: deletevalue
Root: HKCU; Subkey: "Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.pm"; ValueName: "Application"; ValueType: String; Tasks: association; Flags: deletevalue
Root: HKCU; Subkey: "Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.plx"; ValueName: "Application"; ValueType: String; Tasks: association; Flags: deletevalue
Root: HKCR; Subkey: ".cgi"; ValueType: String; ValueData: "PerlScriptFile.CGI"; Tasks: association;
Root: HKCR; Subkey: ".cgi"; ValueName: "Content Type"; ValueType: String; ValueData: "application/x-perl"; Tasks: association; Flags: createvalueifdoesntexist
Root: HKCR; Subkey: ".cgi\OpenWithList\DzSoft Perl Editor"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: ".cgi\OpenWithList\DzSoft Perl Editor\shell\edit\command"; ValueType: String; ValueData: """{app}\Pleditor.exe"" ""%1"""; Tasks: association;
Root: HKCR; Subkey: "PerlScriptFile.CGI"; Tasks: association; Flags: uninsdeletekeyifempty
Root: HKCR; Subkey: "PerlScriptFile.CGI\DefaultIcon"; ValueType: String; ValueData: "{app}\Pleditor.exe,1"; Tasks: association;
Root: HKCR; Subkey: "PerlScriptFile.CGI\shell"; Tasks: association; Flags: uninsdeletekeyifempty
Root: HKCR; Subkey: "PerlScriptFile.CGI\shell"; ValueType: String; ValueData: "Edit"; Tasks: association; Flags: uninsclearvalue
Root: HKCR; Subkey: "PerlScriptFile.CGI\shell\Edit"; ValueType: String; ValueData: "&Edit"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: "PerlScriptFile.CGI\shell\Edit\command"; ValueType: String; ValueData: """{app}\Pleditor.exe"" ""%1"""; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: "PerlScriptFile.CGI\shell\Upload"; ValueType: String; ValueData: "&Upload"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: "PerlScriptFile.CGI\shell\Upload\command"; ValueType: String; ValueData: """{app}\Uploader.exe"" ""%1"" -script"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: ".pl"; ValueType: String; ValueData: "PerlScriptFile.PL"; Tasks: association;
Root: HKCR; Subkey: ".pl"; ValueName: "Content Type"; ValueType: String; ValueData: "application/x-perl"; Tasks: association; Flags: createvalueifdoesntexist
Root: HKCR; Subkey: ".pl\OpenWithList\DzSoft Perl Editor"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: ".pl\OpenWithList\DzSoft Perl Editor\shell\edit\command"; ValueType: String; ValueData: """{app}\Pleditor.exe"" ""%1"""; Tasks: association;
Root: HKCR; Subkey: "PerlScriptFile.PL"; Tasks: association; Flags: uninsdeletekeyifempty
Root: HKCR; Subkey: "PerlScriptFile.PL\DefaultIcon"; ValueType: String; ValueData: "{app}\Pleditor.exe,2"; Tasks: association;
Root: HKCR; Subkey: "PerlScriptFile.PL\shell"; Tasks: association; Flags: uninsdeletekeyifempty
Root: HKCR; Subkey: "PerlScriptFile.PL\shell"; ValueType: String; ValueData: "Edit"; Tasks: association; Flags: uninsclearvalue
Root: HKCR; Subkey: "PerlScriptFile.PL\shell\Edit"; ValueType: String; ValueData: "&Edit"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: "PerlScriptFile.PL\shell\Edit\command"; ValueType: String; ValueData: """{app}\Pleditor.exe"" ""%1"""; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: "PerlScriptFile.PL\shell\Upload"; ValueType: String; ValueData: "&Upload"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: "PerlScriptFile.PL\shell\Upload\command"; ValueType: String; ValueData: """{app}\Uploader.exe"" ""%1"" -script"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: ".pm"; ValueType: String; ValueData: "PerlScriptFile.PM"; Tasks: association;
Root: HKCR; Subkey: ".pm"; ValueName: "Content Type"; ValueType: String; ValueData: "application/x-perl"; Tasks: association; Flags: createvalueifdoesntexist
Root: HKCR; Subkey: ".pm\OpenWithList\DzSoft Perl Editor"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: ".pm\OpenWithList\DzSoft Perl Editor\shell\edit\command"; ValueType: String; ValueData: """{app}\Pleditor.exe"" ""%1"""; Tasks: association;
Root: HKCR; Subkey: "PerlScriptFile.PM"; Tasks: association; Flags: uninsdeletekeyifempty
Root: HKCR; Subkey: "PerlScriptFile.PM\DefaultIcon"; ValueType: String; ValueData: "{app}\Pleditor.exe,4"; Tasks: association;
Root: HKCR; Subkey: "PerlScriptFile.PM\shell"; Tasks: association; Flags: uninsdeletekeyifempty
Root: HKCR; Subkey: "PerlScriptFile.PM\shell"; ValueType: String; ValueData: "Edit"; Tasks: association; Flags: uninsclearvalue
Root: HKCR; Subkey: "PerlScriptFile.PM\shell\Edit"; ValueType: String; ValueData: "&Edit"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: "PerlScriptFile.PM\shell\Edit\command"; ValueType: String; ValueData: """{app}\Pleditor.exe"" ""%1"""; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: "PerlScriptFile.PM\shell\Upload"; ValueType: String; ValueData: "&Upload"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: "PerlScriptFile.PM\shell\Upload\command"; ValueType: String; ValueData: """{app}\Uploader.exe"" ""%1"" -script"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: ".plx"; ValueType: String; ValueData: "PerlScriptFile.PLX"; Tasks: association;
Root: HKCR; Subkey: ".plx"; ValueName: "Content Type"; ValueType: String; ValueData: "application/x-perl"; Tasks: association; Flags: createvalueifdoesntexist
Root: HKCR; Subkey: ".plx\OpenWithList\DzSoft Perl Editor"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: ".plx\OpenWithList\DzSoft Perl Editor\shell\edit\command"; ValueType: String; ValueData: """{app}\Pleditor.exe"" ""%1"""; Tasks: association;
Root: HKCR; Subkey: "PerlScriptFile.PLX"; Tasks: association; Flags: uninsdeletekeyifempty
Root: HKCR; Subkey: "PerlScriptFile.PLX\DefaultIcon"; ValueType: String; ValueData: "{app}\Pleditor.exe,3"; Tasks: association;
Root: HKCR; Subkey: "PerlScriptFile.PLX\shell"; Tasks: association; Flags: uninsdeletekeyifempty
Root: HKCR; Subkey: "PerlScriptFile.PLX\shell"; ValueType: String; ValueData: "Edit"; Tasks: association; Flags: uninsclearvalue
Root: HKCR; Subkey: "PerlScriptFile.PLX\shell\Edit"; ValueType: String; ValueData: "&Edit"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: "PerlScriptFile.PLX\shell\Edit\command"; ValueType: String; ValueData: """{app}\Pleditor.exe"" ""%1"""; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: "PerlScriptFile.PLX\shell\Upload"; ValueType: String; ValueData: "&Upload"; Tasks: association; Flags: uninsdeletekey
Root: HKCR; Subkey: "PerlScriptFile.PLX\shell\Upload\command"; ValueType: String; ValueData: """{app}\Uploader.exe"" ""%1"" -script"; Tasks: association; Flags: uninsdeletekey
[INI]
FileName: "{app}\DzSoft.url"; Section: "InternetShortcut"; Key: "URL"; String: "http://www.dzsoft.com/";
FileName: "{app}\GetPerl.url"; Section: "InternetShortcut"; Key: "URL"; String: "http://www.dzsoft.com/getperl.htm";
FileName: "{app}\PerlLinks.url"; Section: "InternetShortcut"; Key: "URL"; String: "http://www.dzsoft.com/perllinks.htm";
FileName: "{app}\Snippets.ini"; Section: "Content-type"; Key: "Count"; String: "1";
FileName: "{app}\Snippets.ini"; Section: "Content-type"; Key: "Item0"; String: """print ""Content-type: text/html\n\n"";""";
FileName: "{app}\Snippets.ini"; Section: "Redirection"; Key: "Count"; String: "1";
FileName: "{app}\Snippets.ini"; Section: "Redirection"; Key: "Item0"; String: """print ""Location: http://www.dzsoft.com/\n\n"";""";
FileName: "{app}\Snippets.ini"; Section: "if-else"; Key: "Count"; String: "5";
FileName: "{app}\Snippets.ini"; Section: "if-else"; Key: "Item0"; String: """if () {{""";
FileName: "{app}\Snippets.ini"; Section: "if-else"; Key: "Item1"; String: """  """;
FileName: "{app}\Snippets.ini"; Section: "if-else"; Key: "Item2"; String: """} else {{""";
FileName: "{app}\Snippets.ini"; Section: "if-else"; Key: "Item3"; String: """  """;
FileName: "{app}\Snippets.ini"; Section: "if-else"; Key: "Item4"; String: """}""";
FileName: "{app}\Snippets.ini"; Section: "foreach"; Key: "Count"; String: "3";
FileName: "{app}\Snippets.ini"; Section: "foreach"; Key: "Item0"; String: """foreach $item (@items) {{""";
FileName: "{app}\Snippets.ini"; Section: "foreach"; Key: "Item1"; String: """  """;
FileName: "{app}\Snippets.ini"; Section: "foreach"; Key: "Item2"; String: """}""";
FileName: "{app}\Snippets.ini"; Section: "Get host name by IP address"; Key: "Count"; String: "4";
FileName: "{app}\Snippets.ini"; Section: "Get host name by IP address"; Key: "Item0"; String: """$ip = $ENV{{'REMOTE_ADDR'};""";
FileName: "{app}\Snippets.ini"; Section: "Get host name by IP address"; Key: "Item1"; String: """@digits = split (/\./, $ip);""";
FileName: "{app}\Snippets.ini"; Section: "Get host name by IP address"; Key: "Item2"; String: """$address = pack (""C4"", @digits);""";
FileName: "{app}\Snippets.ini"; Section: "Get host name by IP address"; Key: "Item3"; String: """$host = gethostbyaddr ($address, 2);""";
FileName: "{app}\Snippets.ini"; Section: "Read text file"; Key: "Count"; String: "3";
FileName: "{app}\Snippets.ini"; Section: "Read text file"; Key: "Item0"; String: """open (TXTFILE, ""path/to/file.txt"");""";
FileName: "{app}\Snippets.ini"; Section: "Read text file"; Key: "Item1"; String: """@lines = <TXTFILE>;""";
FileName: "{app}\Snippets.ini"; Section: "Read text file"; Key: "Item2"; String: """close(TXTFILE);""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Count"; String: "14";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item0"; String: """if ($ENV{{'REQUEST_METHOD'} eq 'POST') {{""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item1"; String: """  read(STDIN, $buffer, $ENV{{'CONTENT_LENGTH'});""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item2"; String: """} else {{""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item3"; String: """  $buffer = $ENV{{'QUERY_STRING'};""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item4"; String: """}""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item5"; String: """@pairs = split(/&/, $buffer);""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item6"; String: """foreach $pair (@pairs) {{""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item7"; String: """  ($name, $value) = split(/=/, $pair);""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item8"; String: """  $name =~ tr/+/ /;""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item9"; String: """  $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(""C"", hex($1))/eg;""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item10"; String: """  $value =~ tr/+/ /;""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item11"; String: """  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(""C"", hex($1))/eg;""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item12"; String: """  $FORM{{$name} = $value;""";
FileName: "{app}\Snippets.ini"; Section: "Get form data"; Key: "Item13"; String: """}""";
FileName: "{app}\Snippets.ini"; Section: "New Item"; Key: "Count"; String: "0";
FileName: "{app}\Snippets.ini"; Section: "param"; Key: "Count"; String: "2";
FileName: "{app}\Snippets.ini"; Section: "param"; Key: "Item0"; String: """use CGI qw(param);""";
FileName: "{app}\Snippets.ini"; Section: "param"; Key: "Item1"; String: """my $name = param('name');""";
FileName: "{app}\Snippets.ini"; Section: "Send mail"; Key: "Count"; String: "6";
FileName: "{app}\Snippets.ini"; Section: "Send mail"; Key: "Item0"; String: """open (MAIL,""|/usr/lib/sendmail"");""";
FileName: "{app}\Snippets.ini"; Section: "Send mail"; Key: "Item1"; String: """print MAIL ""To: to\@e.mail\n"";""";
FileName: "{app}\Snippets.ini"; Section: "Send mail"; Key: "Item2"; String: """print MAIL ""From: from\@e.mail\n"";""";
FileName: "{app}\Snippets.ini"; Section: "Send mail"; Key: "Item3"; String: """print MAIL ""Subject: Subject\n\n"";""";
FileName: "{app}\Snippets.ini"; Section: "Send mail"; Key: "Item4"; String: """print MAIL ""Body\n"";""";
FileName: "{app}\Snippets.ini"; Section: "Send mail"; Key: "Item5"; String: """close MAIL;""";
FileName: "{app}\Snippets.ini"; Section: "HTML"; Key: "Count"; String: "7";
FileName: "{app}\Snippets.ini"; Section: "HTML"; Key: "Item0"; String: """print ""<html>\n"";""";
FileName: "{app}\Snippets.ini"; Section: "HTML"; Key: "Item1"; String: """print ""<head>\n"";""";
FileName: "{app}\Snippets.ini"; Section: "HTML"; Key: "Item2"; String: """print ""<title></title>\n"";""";
FileName: "{app}\Snippets.ini"; Section: "HTML"; Key: "Item3"; String: """print ""</head>\n"";""";
FileName: "{app}\Snippets.ini"; Section: "HTML"; Key: "Item4"; String: """print ""<body>\n"";""";
FileName: "{app}\Snippets.ini"; Section: "HTML"; Key: "Item5"; String: """print ""</body>\n"";""";
FileName: "{app}\Snippets.ini"; Section: "HTML"; Key: "Item6"; String: """print ""</html>\n"";""";
[Run]
Filename: "{app}\Pleditor.exe"; WorkingDir: "{app}"; Description: "Launch DzSoft Perl Editor"; Flags: postinstall skipifsilent nowait
[Icons]
Name: "{group}\DzSoft Perl Editor"; Filename: "{app}\Pleditor.exe"; WorkingDir: "{app}"; IconFilename: "{app}\Pleditor.exe"; Comment: "Launch DzSoft Perl Editor";
Name: "{group}\DzSoft Perl Editor Help"; Filename: "{app}\Pleditor.chm"; WorkingDir: "{app}"; Comment: "View DzSoft Perl Editor Help";
Name: "{group}\Perl Documentation"; Filename: "{app}\Pleditor.exe"; Parameters: "-perldoc"; WorkingDir: "{app}"; IconFilename: "{sys}\url.dll"; Comment: "View Perl Documentation";
Name: "{group}\Perl Links"; Filename: "{app}\PerlLinks.url"; WorkingDir: "{app}"; Comment: "Perl Programming Links - tutorials, free script collections etc.";
Name: "{group}\Samples"; Filename: "{app}\Samples"; WorkingDir: "{app}\Samples"; Comment: "Sample Perl Scripts";
Name: "{group}\DzSoft's Web Site"; Filename: "{app}\DzSoft.url"; WorkingDir: "{app}"; Comment: "Visit www.dzsoft.com";
Name: "{group}\Download Perl Interpreter"; Filename: "{app}\GetPerl.url"; WorkingDir: "{app}"; IconFilename: "{sys}\url.dll"; Comment: "To use the ""Run"" feature in DzSoft Perl Editor you must have a Perl interpreter installed.";
Name: "{userdesktop}\DzSoft Perl Editor"; Filename: "{app}\Pleditor.exe"; WorkingDir: "{app}"; IconFilename: "{app}\Pleditor.exe"; Comment: "Launch DzSoft Perl Editor"; Tasks: desktopicon;
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\DzSoft Perl Editor"; Filename: "{app}\Pleditor.exe"; WorkingDir: "{app}"; IconFilename: "{app}\Pleditor.exe"; Comment: "Launch DzSoft Perl Editor"; Tasks: quicklaunchicon;
Name: "{sendto}\DzSoft Perl Editor"; Filename: "{app}\Pleditor.exe"; WorkingDir: "{app}"; IconFilename: "{app}\Pleditor.exe"; Comment: "DzSoft Perl Editor"; Tasks: sendto;
Name: "{sendto}\Upload to FTP"; Filename: "{app}\Uploader.exe"; WorkingDir: "{app}"; IconFilename: "{app}\Uploader.exe"; Comment: "Upload to FTP (DzSoft Perl Editor)"; Tasks: sendtoftp;
[Tasks]
Name: "desktopicon"; Description: "Create a &desktop icon"; GroupDescription: "Additional icons:";
Name: "quicklaunchicon"; Description: "Create a &Quick Launch icon"; GroupDescription: "Additional icons:";
Name: "association"; Description: "&Associate with Perl files"; GroupDescription: "Shell integration:";
Name: "sendto"; Description: "Add a &Send To item"; GroupDescription: "Shell integration:";
Name: "sendtoftp"; Description: "Add an ""&Upload to FTP"" Send To item"; GroupDescription: "Shell integration:";
[InstallDelete]
Type: files; Name: "{group}\Download ActivePerl.lnk";
Type: files; Name: "{group}\License Agreement.lnk";
Type: files; Name: "{group}\Visit DzSoft Website.lnk";
[UninstallDelete]
Type: files; Name: "{app}\DzSoft.url";
Type: files; Name: "{app}\GetPerl.url";
Type: files; Name: "{app}\PerlLinks.url";
Type: files; Name: "{app}\Snippets.ini";